home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / textControls.nib / data.nib (.txt) < prev   
Encoding:
NeXT TypedStream Data  |  1995-03-22  |  9.6 KB  |  153 lines
  1. typedstream
  2. IBObjectData
  3. Object
  4. CustomObject
  5. WWTCLInterp
  6. WWColorWell
  7. NXColorWell
  8. Control
  9.     Responder
  10. [13@]
  11. WWThumbWheel
  12. PAThumbWheel
  13. WWThumbWheelCell
  14. PAThumbWheelCell
  15. ActionCell
  16.     Helvetica
  17. (set __text__(spacing) %f; synchWithScene
  18. __text__(spacing)
  19. WWTextField
  20.     TextField
  21. WWTextFieldCell
  22. TextFieldCell
  23. text(spacing)
  24. abcdefghijklmnopqrstuvwxyz
  25. Cset __text__(fontName) "%F"; set __text__(fontSize) %S;  updateView
  26. __text__(fontName)
  27. .set __text__(spacingFactor) %f; synchWithScene
  28. __text__(spacingFactor)
  29. text(spacingFactor)
  30. *set __text__(tabLength) %f; synchWithScene
  31. __text__(tabLength)
  32. text(tabLength)
  33. +set __text__(timeFactor) %f; synchWithScene
  34. __text__(timeFactor)
  35. text(timeFactor)
  36. -set __text__(sampleOffset) %f; synchWithScene
  37. __text__(sampleOffset)
  38. text(sampleOffset)
  39. colorWW3DShape
  40. set startTimeInteger %d;
  41. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  42. startTimeInteger
  43. start integer
  44. set endTimeInteger %d;
  45. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  46. endTimeInteger
  47. end integer
  48. set selectedColor {%f %f %f}; 
  49. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  50. selectedColor
  51. selected
  52. set startTimeDecimal %d;
  53. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  54. startTimeDecimal
  55. start decimal
  56. set endTimeDecimal %d;
  57. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  58. endTimeDecimal
  59. end decimal
  60. unselected
  61. set unselectedColor {%f %f %f}; 
  62. colorIt  $startTimeInteger $startTimeDecimal $endTimeInteger $endTimeDecimal $selectedColor $unselectedColor
  63. unselectedColor
  64. WindowTemplate
  65. iiii***@s@
  66. Window
  67. ClipView
  68. ScrollView
  69. Scroller
  70. _doScroller:
  71. @@@ffs
  72. NXCursor
  73. NXImage
  74. NXibeam
  75. ciifffcfffs
  76. [3956c]{\rtf0\ansi{\fonttbl\f0\fswiss Helvetica;}
  77. \margl40
  78. \margr40
  79. \pard\tx533\tx1067\tx1601\tx2135\tx2668\tx3202\tx3736\tx4270\tx4803\tx5337\f0\b0\i0\ulnone\fs24\fc0\cf0 proc colorIt \{\{startTimeInteger 0\} \{startTimeDecimal 0\} \{endTimeInteger 0\} \{endTimeDecimal 1\} \{selectedColor \{1 0 0\}\} \{unselectedColor \{1 1 1\}\}\} \{  global  __text__;\
  80.     set memberList [array names __text__];\
  81.     #puts "memberList \\"$memberList\\""\
  82.     # first we want a list of all the colorTime* indices, so we have the whole thing\
  83.     # so we need to grovel over the list, checking each to see if it matches the pattern\
  84.     # if it does, add it to the colorTimeList\
  85.     set howMany [llength $memberList]\
  86.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  87.     \{  if \{[regexp colorTime* [lindex $memberList $i]]\} \\\
  88.           \{lappend colorTimeList [lindex $memberList $i]\} \\\
  89.           \{\} \
  90.     \}\
  91.     #puts "colorTimeList \\"$colorTimeList\\""\
  92.     # looking for things "between" colorTime$\{startTime\} and colorTime$\{endTime\}\
  93.     set pattern "colorTime(\\[$\{startTimeInteger\}-$\{endTimeInteger\}\\])+(\\\\.)+(\\[$\{startTimeDecimal\}-$\{endTimeDecimal\}\\])"\
  94.     #puts "using pattern $pattern"\
  95.     set howMany [llength $colorTimeList]\
  96.     set selectedList ""\
  97.     set unselectedList ""\
  98.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  99.     \{  if \{[regexp $pattern [lindex $colorTimeList $i]]\} \\\
  100.           \{lappend selectedList [lindex $colorTimeList $i]\} \\\
  101.           \{lappend unselectedList [lindex $colorTimeList $i]\} \
  102.     \}\
  103.     #puts "selectedList is \\"$selectedList\\"";\
  104.     #puts "unselectedList is \\"$unselectedList\\"";\
  105.     set howMany [llength $selectedList]\
  106.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  107.     \{  set __text__([lindex $selectedList $i]) $selectedColor; \
  108.     \} \
  109.     set howMany [llength $unselectedList]\
  110.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  111.     \{  set __text__([lindex $unselectedList $i]) $unselectedColor; \
  112.     \} \
  113. proc surfaceIt \{\{startTimeInteger 0\} \{startTimeDecimal 0\} \{endTimeInteger 0\} \{endTimeDecimal 1\} \{selectedSurface constant\} \{unselectedSurface WWTranslucentPlastic\}\}  \{  global  __text__;\
  114.     set memberList [array names __text__];\
  115.     #puts "memberList \\"$memberList\\""\
  116.     # first we want a list of all the surfaceTime* indices, so we have the whole thing\
  117.     # so we need to grovel over the list, checking each to see if it matches the pattern\
  118.     # if it does, add it to the surfaceTimeList\
  119.     set howMany [llength $memberList]\
  120.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  121.     \{  if \{[regexp colorSurface* [lindex $memberList $i]]\} \\\
  122.           \{lappend colorSurfaceList [lindex $memberList $i]\} \\\
  123.           \{\} \
  124.     \}\
  125.     #puts "colorSurfaceList \\"$colorSurfaceList\\""\
  126.     # looking for things "between" colorSurface$\{startTime\} and colorSurface$\{endTime\}\
  127.     set pattern "colorSurface(\\[$\{startTimeInteger\}-$\{endTimeInteger\}\\])+(\\\\.)+(\\[$\{startTimeDecimal\}-$\{endTimeDecimal\}\\])"\
  128.     #puts "using pattern $pattern"\
  129.     set howMany [llength $colorSurfaceList]\
  130.     set selectedList ""\
  131.     set unselectedList ""\
  132.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  133.     \{  if \{[regexp $pattern [lindex $colorSurfaceList $i]]\} \\\
  134.           \{lappend selectedList [lindex $colorSurfaceList $i]\} \\\
  135.           \{lappend unselectedList [lindex $colorSurfaceList $i]\} \
  136.     \}\
  137.     #puts "selectedList is \\"$selectedList\\"";\
  138.     #puts "unselectedList is \\"$unselectedList\\"";\
  139.     set howMany [llength $selectedList]\
  140.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  141.     \{  set __text__([lindex $selectedList $i]) $selectedSurface; \
  142.     \} \
  143.     set howMany [llength $unselectedList]\
  144.     for \{set i 0\} \{$i < $howMany\} \{incr i\} \\\
  145.     \{  set __text__([lindex $unselectedList $i]) $unselectedSurface; \
  146.     \} \
  147. Panel
  148. File's Owner
  149. IBOutletConnector
  150. IBConnector
  151. controlPanel
  152. initializationText
  153.